lock Subroutine

public subroutine lock(xa, n, x, klo, khi, ierr)

что делает?

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	xa(*)
integer,	intent(in)			::	n
real(kind=wp),	intent(in)			::	x
integer,	intent(inout)			::	klo
integer,	intent(inout)			::	khi
integer,	intent(inout)			::	ierr